home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 5 / BBS in a Box -Volume V (BBS in a Box) (April 1992).iso / Files / Hyper / D / DEMOLIB.cpt / Amug Library Demo / Amug Library Demo / card_4093.txt < prev    next >
Encoding:
Text File  |  1989-09-30  |  6.5 KB  |  317 lines
  1. -- card: 4093 from stack: in
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 3399
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on OpenCard
  8.   global menu1
  9.   enableMenu menu1, 1, FALSE
  10.   show menubar
  11. end  OpenCard
  12.  
  13. on closecard
  14.   global menu1
  15.   enableMenu menu1, 1, True
  16.   hide cd btn bug
  17.   hide card field info
  18. end closecard
  19.  
  20.  
  21. -- part 28 (button)
  22. -- low flags: 00
  23. -- high flags: 2000
  24. -- rect: left=164 top=76 right=191 bottom=348
  25. -- title width / last selected line: 0
  26. -- icon id / first selected line: 0 / 0
  27. -- text alignment: 1
  28. -- font id: 0
  29. -- text size: 12
  30. -- style flags: 0
  31. -- line height: 16
  32. -- part name: New Button
  33. ----- HyperTalk script -----
  34. on mouseUp
  35.   play "Welcome to AMUG"
  36. end mouseUp
  37.  
  38.  
  39.  
  40.  
  41. -- part 1 (button)
  42. -- low flags: 00
  43. -- high flags: A000
  44. -- rect: left=412 top=63 right=117 bottom=474
  45. -- title width / last selected line: 0
  46. -- icon id / first selected line: 31032 / 31032
  47. -- text alignment: 1
  48. -- font id: 0
  49. -- text size: 12
  50. -- style flags: 0
  51. -- line height: 16
  52. -- part name: Go to Disk?
  53. ----- HyperTalk script -----
  54. on mouseUp
  55.   ask "Which disk would you like to see?"
  56.   if it is empty then exit mouseUp
  57.   if it > 252 then
  58.     answer "Sorry.  Disks between 1 thru 252" with "OK"
  59.     exit mouseUp
  60.   end if
  61.   find whole it in bg fld 2
  62.   --find whole it in bg fld 1
  63. end mouseUp
  64.  
  65.  
  66.  
  67. -- part 4 (button)
  68. -- low flags: 00
  69. -- high flags: 2000
  70. -- rect: left=427 top=309 right=342 bottom=471
  71. -- title width / last selected line: 0
  72. -- icon id / first selected line: 26425 / 26425
  73. -- text alignment: 1
  74. -- font id: 0
  75. -- text size: 12
  76. -- style flags: 0
  77. -- line height: 16
  78. -- part name: New Button
  79. ----- HyperTalk script -----
  80. on mouseUp
  81.   visual effect dissolve to white
  82.   visual effect checkerboard
  83.   go to next cd
  84. end mouseUp
  85.  
  86.  
  87.  
  88. -- part 7 (button)
  89. -- low flags: 00
  90. -- high flags: A000
  91. -- rect: left=379 top=139 right=189 bottom=512
  92. -- title width / last selected line: 0
  93. -- icon id / first selected line: 31032 / 31032
  94. -- text alignment: 1
  95. -- font id: 0
  96. -- text size: 12
  97. -- style flags: 0
  98. -- line height: 16
  99. -- part name: Go to File or Keyword?
  100. ----- HyperTalk script -----
  101. on mouseUp
  102.   global Searcher
  103.   ask "Which file would you like to find?"
  104.   put it into Searcher
  105.   find it in bg fld 1
  106.   if the result is not empty then play boing
  107. end mouseUp
  108.  
  109.  
  110.  
  111. -- part 29 (button)
  112. -- low flags: 00
  113. -- high flags: A000
  114. -- rect: left=7 top=130 right=184 bottom=120
  115. -- title width / last selected line: 0
  116. -- icon id / first selected line: 15992 / 15992
  117. -- text alignment: 1
  118. -- font id: 0
  119. -- text size: 12
  120. -- style flags: 0
  121. -- line height: 16
  122. -- part name: Subscription Service
  123. ----- HyperTalk script -----
  124.  
  125. on mouseUp
  126.   push card
  127.   domenu "Subscription Service Info"
  128. end mouseUp
  129.  
  130.  
  131.  
  132. -- part 15 (button)
  133. -- low flags: 00
  134. -- high flags: A000
  135. -- rect: left=398 top=205 right=261 bottom=494
  136. -- title width / last selected line: 0
  137. -- icon id / first selected line: 12274 / 12274
  138. -- text alignment: 1
  139. -- font id: 0
  140. -- text size: 12
  141. -- style flags: 0
  142. -- line height: 16
  143. -- part name: Best Disks
  144. ----- HyperTalk script -----
  145. on mouseUp
  146.   domenu "Best Disks"
  147. end mouseUp
  148.  
  149.  
  150.  
  151.  
  152. -- part 31 (button)
  153. -- low flags: 00
  154. -- high flags: A000
  155. -- rect: left=6 top=52 right=106 bottom=119
  156. -- title width / last selected line: 0
  157. -- icon id / first selected line: 15808 / 15808
  158. -- text alignment: 1
  159. -- font id: 0
  160. -- text size: 12
  161. -- style flags: 0
  162. -- line height: 16
  163. -- part name: Members Information
  164. ----- HyperTalk script -----
  165.  
  166. on mouseUp
  167.   push card
  168.   domenu "Members Info"
  169. end mouseUp
  170.  
  171.  
  172.  
  173. -- part 33 (button)
  174. -- low flags: 00
  175. -- high flags: A000
  176. -- rect: left=4 top=207 right=261 bottom=117
  177. -- title width / last selected line: 0
  178. -- icon id / first selected line: 15994 / 15994
  179. -- text alignment: 1
  180. -- font id: 0
  181. -- text size: 12
  182. -- style flags: 0
  183. -- line height: 16
  184. -- part name: Order Form
  185. ----- HyperTalk script -----
  186. on mouseUp
  187.   domenu"Order Form"
  188. end mouseUp
  189.  
  190.  
  191.  
  192. -- part 18 (button)
  193. -- low flags: 00
  194. -- high flags: 2000
  195. -- rect: left=35 top=307 right=342 bottom=85
  196. -- title width / last selected line: 0
  197. -- icon id / first selected line: 19678 / 19678
  198. -- text alignment: 1
  199. -- font id: 0
  200. -- text size: 12
  201. -- style flags: 0
  202. -- line height: 16
  203. -- part name: Info
  204. ----- HyperTalk script -----
  205. on mouseUp
  206.   set the icon of button bug to 10639
  207.   set the loc of button bug to 30,16
  208.   set the loc of card field info to 600,132
  209.   show button bug
  210.   show card field info
  211.   repeat with i is 4 to 37
  212.     set lockscreen to true
  213.     set the loc of button bug to 15*i-29,i*4
  214.     set the icon of button bug to (10638 + i mod 2)
  215.     set lockscreen to false
  216.   end repeat
  217.   wait 1 seconds
  218.   repeat with i is 46 down to 17
  219.     set lockscreen to true
  220.     set the loc of button bug to 15*i-150,132
  221.     set the icon of button bug to (10636 + i mod 2)
  222.     set the loc of card field info to 15*i+3,132
  223.     set lockscreen to false
  224.   end repeat
  225.   repeat 3
  226.     show cd btn "pointer"
  227.     wait 1 sec
  228.     hide cd btn "pointer"
  229.     wait 1 sec
  230.   end repeat
  231. end mouseUp
  232.  
  233.  
  234.  
  235. -- part 22 (field)
  236. -- low flags: 80
  237. -- high flags: 0004
  238. -- rect: left=181 top=98 right=167 bottom=335
  239. -- title width / last selected line: 0
  240. -- icon id / first selected line: 0 / 0
  241. -- text alignment: 0
  242. -- font id: 3
  243. -- text size: 9
  244. -- style flags: 0
  245. -- line height: 12
  246. -- part name: info
  247. ----- HyperTalk script -----
  248. on mouseup
  249.   show card field id 6
  250. end mouseup
  251.  
  252.  
  253. -- part 23 (button)
  254. -- low flags: 80
  255. -- high flags: 0000
  256. -- rect: left=93 top=77 right=110 bottom=120
  257. -- title width / last selected line: 0
  258. -- icon id / first selected line: 2730 / 2730
  259. -- text alignment: 1
  260. -- font id: 0
  261. -- text size: 12
  262. -- style flags: 0
  263. -- line height: 16
  264. -- part name: pointer
  265.  
  266.  
  267. -- part 34 (button)
  268. -- low flags: 00
  269. -- high flags: 2000
  270. -- rect: left=163 top=197 right=314 bottom=350
  271. -- title width / last selected line: 0
  272. -- icon id / first selected line: 0 / 0
  273. -- text alignment: 1
  274. -- font id: 0
  275. -- text size: 12
  276. -- style flags: 0
  277. -- line height: 16
  278. -- part name: New Button
  279. ----- HyperTalk script -----
  280. on mouseUp
  281.   play "Hawaiian Horn"
  282. end mouseUp
  283.  
  284.  
  285.  
  286. -- part 35 (button)
  287. -- low flags: 80
  288. -- high flags: 0000
  289. -- rect: left=84 top=116 right=148 bottom=126
  290. -- title width / last selected line: 0
  291. -- icon id / first selected line: 10637 / 10637
  292. -- text alignment: 1
  293. -- font id: 0
  294. -- text size: 12
  295. -- style flags: 0
  296. -- line height: 16
  297. -- part name: bug
  298. ----- HyperTalk script -----
  299. on mouseUp
  300.   repeat with i is 13 down to -5
  301.     set lockscreen to true
  302.     set the loc of button bug to 20*i-155,132
  303.     set the icon of button bug to (10636 + i mod 2)
  304.     set the loc of card field info to 20*i-2,132
  305.     set lockscreen to false
  306.   end repeat
  307. end mouseUp
  308.  
  309.  
  310.  
  311. -- part contents for card part 22
  312. ----- text -----
  313. AMUG Disk Library Stack
  314. By Tom Deasey
  315. 2055 E. Broadway
  316. Mesa,AZ. 85204
  317. Voice(602)844-0615